﻿Public Class frmStrategy

    Private _paint As New CreadorDibujos()

    Private Sub frmStrategy_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Output.Print("-------------------------")
        Output.Print("--Patrón Strategy:")
        _paint.x = 10
        _paint.y = 25
    End Sub
    Private Sub btnCirculos_Click(sender As System.Object, e As System.EventArgs) Handles btnCirculos.Click
        _paint.EstablecerDibujo(New DibujoCirculos())
    End Sub

    Private Sub btnRectas_Click(sender As System.Object, e As System.EventArgs) Handles btnRectas.Click
        _paint.EstablecerDibujo(New DibujoRectas())
    End Sub

    Private Sub btnDibujar_Click(sender As System.Object, e As System.EventArgs) Handles btnDibujar.Click
        _paint.Dibujar()
    End Sub


End Class